home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Fiasco / Databases / PictureDatabase / Display.frx < prev    next >
Encoding:
Text File  |  1997-09-13  |  934 b   |  40 lines
  1. /* display.frx
  2.  * Display a picture on a screen
  3.  * Copyright © 1996-1997 Nils Bandener
  4.  * $VER: display_frx 6.2 (13.9.97)
  5.  */
  6.  
  7. Options Results
  8. Parse Arg num cmd args
  9.  
  10. scriptname = "Display"
  11. fiasco_port = address()
  12.  
  13. GetField "Name_" || num
  14. name = result
  15.  
  16. if name ~= "" then do
  17.  
  18.     archive = pos("/__in_archive__/", name)
  19.  
  20.     if archive ~= 0 then
  21.     do
  22.         arcname = left(name, archive - 1)
  23.         nameinarc = substr(name, archive + 16)
  24.  
  25.         Address Command 'lha >nil: <nil: e "' || arcname || '" "' || nameinarc || '" t:'
  26.  
  27.         if rc = 0 then
  28.         do
  29.             ExtractedName = "t:" || substr(NameInArc, lastpos("/", NameInArc) + 1)
  30.             Address Command 'execute startprog ' || cmd '"' || extractedname || '"' args
  31.             Address Command 'delete "' || ExtractedName || '" quiet'
  32.         end
  33.     end
  34.     else
  35.     do
  36.         Address Command 'execute startprog ' || cmd '"' || name || '"' args
  37.     end
  38. end
  39.  
  40.